home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / DEMO / DHRYSTON.ADA / TIMEDATE.I < prev   
Encoding:
Modula Implementation  |  1991-01-02  |  484 b   |  23 lines
  1. IMPLEMENTATION MODULE TimeDate ;(*$R-,S-*)
  2.  
  3. FROM XBIOS      IMPORT SuperExec;
  4. FROM SYSTEM     IMPORT ADDRESS;
  5.  
  6. VAR hz200: LONGCARD;
  7.  
  8. PROCEDURE readTimer;
  9.   VAR p: POINTER TO LONGCARD;
  10.   BEGIN
  11.     p:= ADDRESS (04BAH);  (* Adr. des 200 Hz-Timers beim ST *)
  12.     hz200:= p^
  13.   END readTimer;
  14.  
  15. PROCEDURE Clock (VAR Time: LONGINT);
  16.   (* Diese Funktion liest den 200 Hz-Timer des ST aus *)
  17.   BEGIN
  18.     SuperExec (readTimer);
  19.     Time:= hz200
  20.   END Clock;
  21.  
  22. END TimeDate.
  23.